home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 100 / 100.d81 / ls slideshow (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  86 lines
  1. 100 poke53280,0:poke53281,0:print"[147]"
  2. 130 :
  3. 140 poke55,0:poke56,64:clr:a$=""
  4. 142 dv=peek(186):ifdv<8thendv=8
  5. 145 gosub60000
  6. 155 def fnd(i)=20-(len(an$(x,i))/2):dim an$(9,20)
  7. 160 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  8. 170 sys57812"package.o",dv,0:poke780,0:poke781,80:poke782,195:sys65493
  9. 180 rem sys57812"gqtitle.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  10. 190 rem poke251,64:poke252,224:poke253,204:sys51456
  11. 195 rem poke252,224:poke253,204:sys51459
  12. 200 ip=50000:unpack=51456:hgr=51459
  13. 210 ps=50006:ba=50009
  14. 220 open2,dv,2,"ls text,p,r"
  15. 222 j=1:k=0:fori=0to1:sysip,2,40:i=st
  16. 224 ifa$="*"thenj=j+1:k=0:goto228
  17. 226 k=k+1:an$(j,k)=a$
  18. 228 next:close2
  19. 240 forx=1to8:r$(x)=chr$(48+x)+".shp"
  20. 250 next
  21. 270 forx=1to8
  22. 280 gosub1820
  23. 290 sys57812r$(x),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  24. 310 gosub1920:ifa$="q"ora$="[209]"thengosub1250
  25. 312 gosub2000
  26. 340 poke198,0:kk=0
  27. 360 kk=kk+1:geta$:ifa$=""andkk<1500then360
  28. 370 ifa$="q"ora$="[209]"thengosub1250
  29. 380 ifa$=""ora$="[145]"thengosub9010:goto340
  30. 420 syshgr:print"[147]":poke198,0:nextx
  31. 430 goto270
  32. 1250 o=peek(53270)and16
  33. 1255 ifothensys51459
  34. 1260 poke53281,0:poke53280,0
  35. 1270 print"[147][154]  [193]re you sure you want to quit? (y[154]/n[154])"
  36. 1280 poke198,0:wait198,1:getag$
  37. 1290 ifag$="y"orag$="[217]"then1330
  38. 1295 ifothensys51459
  39. 1300 return
  40. 1320 rem quit
  41. 1330 fori=8to9:open15,i,15,"r0:hello connect=hello connect":input#15,er:close15
  42. 1340 ifer=63thendv=i:i=9:next:goto1350
  43. 1345 next:print"[147]":end
  44. 1350 print"[147][144]load"chr$(34)"hello connect"chr$(34)","dv
  45. 1360 print"run"
  46. 1370 poke631,13:poke632,13:poke198,2:end
  47. 1770 print"";
  48. 1820 print"[147][158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  49. 1830 forqx=1to20
  50. 1840 print"[221]"tab(38)"[221]":next
  51. 1850 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  52. 1860 forlx=217to217+26:pokelx,(peek(lx)or128):next
  53. 1870 print""
  54. 1872 printtab(fnd(1))an$(x,1):print"[155]"
  55. 1880 fori=2to18
  56. 1882 printtab(fnd(i))an$(x,i)
  57. 1886 next
  58. 1900 return
  59. 1920 poke214,23:print
  60. 1930 print"[159][208]ress [209][159] to quit - [193]ny other to continue[145]":poke198,0:kk=0
  61. 1940 kk=kk+1:geta$:ifa$<>""orkk>1500thenreturn
  62. 1950 goto1940
  63. 1980 :
  64. 1990 :
  65. 2000 print"[147]";:iffhthenpoke254,0:sysba:goto2040
  66. 2020 poke251,64:poke252,224:poke253,204
  67. 2030 sysun
  68. 2040 poke252,224:poke253,204:syshgr:return
  69. 2050 return
  70. 9010 r=53265:j=128
  71. 9020 fori=59to63:waitr,j:poker,i:next:fori=63to56step-1:waitr,j:waitr,j:poker,i
  72. 9030 next:fori=56to59:waitr,j:waitr,j:waitr,j:waitr,j:poker,i:next
  73. 9040 return
  74. 10000 open15,8,15,"s0:ls slideshow":close15:save"ls slideshow",8:end
  75. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  76. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
  77. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  78. 60030 z$(0)="[204] [207] [193] [196] [211] [212] [193] [210]   [211] [204] [201] [196] [197] [211] [200] [207] [215]":z$(1)="by the [204][207][193][196][211][212][193][210] gang"
  79. 60040 z$(2)="[214]1.0 ([195]) 1992 by [211]oftdisk, [201]nc."+chr$(13)
  80. 60050 z$(3)="[212]his program is the copyrighted work
  81. 60060 z$(4)[178]"of (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$.  right$t is not"
  82. 60070 z$(5)[178]"shareware or in the public domain."
  83. 60080 z$(6)[178]"(NULL)eport illegal distribution of":z$(7)[178]"this program by calling"
  84. 60090 z$(8)[178]"1-800-831-2694 or 1-318-221-8718.":[151]214,12:[153]
  85. 60100 [129]i[178]0[164]8:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  86.